home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of www.BestZips.com (Collector's Edition)
/
Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO
/
prgtools
/
prtsut53.zip
/
SU1SRC.ZIP
/
DEMO04.DFM
/
DEMO04.txt
next >
Wrap
Text File
|
1997-01-27
|
18KB
|
746 lines
object FBDemo04: TFBDemo04
Left = 320
Top = 175
Width = 576
Height = 464
ActiveControl = Panel1
Caption = 'FBDemo04'
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 120
TextHeight = 16
object Panel1: TPanel
Left = 0
Top = 0
Width = 1000
Height = 50
Align = alTop
TabOrder = 0
object DBNavigator: TDBNavigator
Left = 10
Top = 10
Width = 280
Height = 31
DataSource = DataSource1
Ctl3D = False
ParentCtl3D = False
TabOrder = 0
end
end
object CBReport1: TCBReport
Left = 8
Top = 56
Width = 992
Height = 1403
Font.Color = clWindowText
Font.Height = 16
Font.Name = 'Arial'
Font.Style = []
Color = 15794175
ParentFont = False
About = 'Version 5.32'
AboutRegistered = 'LUKE GREWS'
Bands.Detail = Detail
Bands.Title = Title
Bands.PageFooter = PageFooter
Viewer.BkColor = 11234567
Viewer.Heading = 'BandIt Viewer'
Viewer.ShowCancelDialog = True
Viewer.MinimizeRunForm = False
Viewer.ZoomPercentage = 100.000000000000000000
Page.FrameStyle = frThin
Page.MarginLeft = 0.400000000000000000
Page.MarginTop = 0.400000000000000000
Page.MarginRight = 0.400000000000000000
Page.PaperSize = A4
OutputTo = poViewer
Orientation = Default
Units = poInches
Copies = 1
LineSpacing = 2.500000000000000000
RewindBeforePrint = True
object Panel3: TPanel
Left = 49
Top = 1299
Width = 894
Height = 55
Align = alBottom
Caption = 'Panel3'
Color = clBlue
TabOrder = 0
object Label6: TLabel
Left = 16
Top = 8
Width = 113
Height = 19
AutoSize = False
Caption = 'Ship Date'
Font.Color = clWhite
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 16
Top = 32
Width = 113
Height = 19
AutoSize = False
Caption = 'Order Number'
Font.Color = clWhite
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 152
Top = 32
Width = 169
Height = 19
AutoSize = False
Caption = 'Customer Number'
Font.Color = clWhite
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 344
Top = 32
Width = 113
Height = 19
AutoSize = False
Caption = 'Purchase Order'
Font.Color = clWhite
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 496
Top = 32
Width = 57
Height = 19
AutoSize = False
Caption = 'Terms'
Font.Color = clWhite
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 584
Top = 32
Width = 113
Height = 19
AutoSize = False
Caption = 'Pay Method'
Font.Color = clWhite
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 686
Top = 32
Width = 91
Height = 19
Alignment = taRightJustify
AutoSize = False
Caption = 'Items Total'
Font.Color = clWhite
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 782
Top = 32
Width = 99
Height = 19
Alignment = taRightJustify
AutoSize = False
Caption = 'Amount Paid'
Font.Color = clWhite
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
end
object Detail: TCBDetailBand
Left = 49
Top = 241
Width = 894
Height = 56
Align = alTop
Color = clWhite
Frame.Color = clSilver
Frame.Left = frNone
Frame.Right = frNone
Frame.Top = frNone
Frame.Bottom = frNone
ForceNewPage = False
BandType = cbDetail
DataSource = DataSource1
DetailMainHeaderBand = DetailMainHeader
DetailTotalBand = DetailTotal
object DBText1: TDBText
Left = 8
Top = 27
Width = 65
Height = 17
DataField = 'OrderNo'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object EditShipDate: TDBEdit
Left = 10
Top = 2
Width = 127
Height = 23
BorderStyle = bsNone
DataField = 'ShipDate'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 0
ParentFont = False
TabOrder = 0
end
object EditCustNo: TDBEdit
Left = 154
Top = 8
Width = 143
Height = 32
BorderStyle = bsNone
DataField = 'CustNo'
DataSource = DataSource1
Font.Color = clBlue
Font.Height = -20
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 0
ParentFont = False
TabOrder = 1
end
object EditPO: TDBEdit
Left = 338
Top = 22
Width = 126
Height = 24
BorderStyle = bsNone
DataField = 'PO'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 2
end
object EditTerms: TDBEdit
Left = 466
Top = 22
Width = 63
Height = 24
BorderStyle = bsNone
DataField = 'Terms'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 6
ParentFont = False
TabOrder = 3
end
object EditPaymentMethod: TDBEdit
Left = 554
Top = 22
Width = 70
Height = 24
BorderStyle = bsNone
DataField = 'PaymentMethod'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 7
ParentFont = False
TabOrder = 4
end
object EditItemsTotal: TDBEdit
Left = 650
Top = 22
Width = 91
Height = 24
BorderStyle = bsNone
DataField = 'ItemsTotal'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 0
ParentFont = False
TabOrder = 5
end
object EditAmountPaid: TDBEdit
Left = 794
Top = 22
Width = 91
Height = 24
BorderStyle = bsNone
DataField = 'AmountPaid'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 0
ParentFont = False
TabOrder = 6
end
end
object DetailTotal: TCBBand
Left = 49
Top = 297
Width = 894
Height = 32
Align = alTop
Color = clWhite
Frame.Color = clSilver
Frame.Left = frSingleThin
Frame.Right = frSingleThin
Frame.Top = frSingleThin
Frame.Bottom = frSingleThin
ForceNewPage = False
BandType = cbDetailTotal
object Label30: TLabel
Left = 456
Top = 2
Width = 169
Height = 25
Alignment = taCenter
AutoSize = False
Caption = 'Order Total '
Font.Color = clRed
Font.Height = -23
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object CBCalc1: TCBCalc
Left = 611
Top = 4
Width = 129
Height = 23
DataField = 'ItemsTotal'
DataSource = DataSource1
ParentFont = False
BorderStyle = bsNone
Color = clWhite
Font.Color = clRed
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
DisplayFormat = '$ #,##0.00'
Text = '$ 0.00'
Alignment = taRightJustify
Operation = cbSum
end
object CBCalc2: TCBCalc
Left = 779
Top = 4
Width = 106
Height = 25
DataField = 'AmountPaid'
DataSource = DataSource1
ParentFont = False
BorderStyle = bsNone
Color = clWhite
Font.Color = clRed
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
DisplayFormat = '$ #,##0.00'
Text = '$ 0.00'
Alignment = taRightJustify
Operation = cbSum
end
end
object Title: TCBBand
Left = 49
Top = 49
Width = 894
Height = 144
Align = alTop
Color = clWhite
Frame.Color = clSilver
Frame.Left = frSingleThin
Frame.Right = frSingleThin
Frame.Top = frSingleThin
Frame.Bottom = frSingleThin
ForceNewPage = False
BandType = cbTitle
object Label5: TLabel
Left = 295
Top = 72
Width = 305
Height = 46
Alignment = taCenter
AutoSize = False
Caption = 'from Calitz Bros.'
Font.Color = clMaroon
Font.Height = -40
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Image1: TImage
Left = 8
Top = 19
Width = 49
Height = 33
Picture.Data = {<image000.bmp>}
end
object Label27: TLabel
Left = 219
Top = 24
Width = 457
Height = 46
Alignment = taCenter
AutoSize = False
Caption = 'Demo printed with BandIt'
Font.Color = clMaroon
Font.Height = -40
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object CBSystem2: TCBSystem
Left = 48
Top = 107
Width = 193
Height = 28
ParentFont = False
BorderStyle = bsNone
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'Arial'
Font.Style = []
Color = clWhite
Data = cbDateTime
DisplayFormat = '#,##0.00'
Text = '0.00'
Alignment = taLeftJustify
end
end
object DetailMainHeader: TCBBand
Left = 49
Top = 193
Width = 894
Height = 48
Align = alTop
Color = clBlue
Frame.Color = clSilver
Frame.Left = frSingleThin
Frame.Right = frSingleThin
Frame.Top = frSingleThin
Frame.Bottom = frSingleThin
ForceNewPage = False
BandType = cbDetailMainHeader
object Label14: TLabel
Left = 16
Top = 2
Width = 105
Height = 19
Caption = 'Ship Date'
Font.Color = clWhite
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 16
Top = 24
Width = 81
Height = 19
Caption = 'Order #'
Font.Color = clWhite
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 154
Top = 21
Width = 164
Height = 19
Caption = 'Customer Number '
Font.Color = clWhite
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label22: TLabel
Left = 466
Top = 21
Width = 59
Height = 19
Caption = 'Terms '
Font.Color = clWhite
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label23: TLabel
Left = 322
Top = 21
Width = 125
Height = 19
Caption = 'Purchase Order'
Font.Color = clWhite
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label24: TLabel
Left = 554
Top = 21
Width = 58
Height = 19
Caption = 'Method'
Font.Color = clWhite
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label25: TLabel
Left = 658
Top = 21
Width = 95
Height = 19
Alignment = taRightJustify
AutoSize = False
Caption = 'Items Total'
Font.Color = clWhite
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label26: TLabel
Left = 776
Top = 21
Width = 105
Height = 19
Alignment = taRightJustify
AutoSize = False
Caption = 'Amount Paid'
Font.Color = clWhite
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label31: TLabel
Left = 554
Top = 5
Width = 73
Height = 19
Caption = 'Payment '
Font.Color = clWhite
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
end
object PageFooter: TCBBand
Left = 49
Top = 329
Width = 894
Height = 59
Align = alTop
Color = clWhite
Frame.Color = clSilver
Frame.Left = frSingleThin
Frame.Right = frSingleThin
Frame.Top = frSingleThin
Frame.Bottom = frSingleThin
ForceNewPage = False
BandType = cbPageFooter
object Image2: TImage
Left = 8
Top = 12
Width = 49
Height = 33
Picture.Data = {<image001.bmp>}
end
object Label29: TLabel
Left = 219
Top = 3
Width = 457
Height = 49
Alignment = taCenter
AutoSize = False
Caption = 'Page Footer'
Font.Color = clMaroon
Font.Height = -40
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Label28: TLabel
Left = 755
Top = 13
Width = 59
Height = 26
Caption = 'Page '
Font.Color = clBlack
Font.Height = -23
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object CBSystem1: TCBSystem
Left = 824
Top = 12
Width = 60
Height = 31
ParentFont = False
BorderStyle = bsNone
Font.Color = clBlack
Font.Height = -23
Font.Name = 'Arial'
Font.Style = []
Color = clWhite
Data = cbPageNumber
DisplayFormat = '0'
Text = '1'
Alignment = taRightJustify
end
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 287
Top = 5
end
object Table1: TTable
Active = True
DatabaseName = 'DBDEMOS'
TableName = 'ORDERS.DB'
Left = 259
Top = 5
object Table1OrderNo: TFloatField
FieldName = 'OrderNo'
DisplayFormat = #39'#'#39'0000'
end
object Table1CustNo: TFloatField
Alignment = taLeftJustify
FieldName = 'CustNo'
DisplayFormat = 'CN 0000'
MaxValue = 9999.000000000000000000
MinValue = 1000.000000000000000000
end
object Table1SaleDate: TDateTimeField
FieldName = 'SaleDate'
end
object Table1ShipDate: TDateTimeField
FieldName = 'ShipDate'
end
object Table1EmpNo: TIntegerField
FieldName = 'EmpNo'
DisplayFormat = 'Emp'#39'#'#39' 0000'
MaxValue = 9999
MinValue = 1
end
object Table1ShipToContact: TStringField
FieldName = 'ShipToContact'
end
object Table1ShipToAddr1: TStringField
FieldName = 'ShipToAddr1'
Size = 30
end
object Table1ShipToAddr2: TStringField
FieldName = 'ShipToAddr2'
Size = 30
end
object Table1ShipToCity: TStringField
FieldName = 'ShipToCity'
Size = 15
end
object Table1ShipToState: TStringField
FieldName = 'ShipToState'
end
object Table1ShipToZip: TStringField
FieldName = 'ShipToZip'
Size = 10
end
object Table1ShipToCountry: TStringField
FieldName = 'ShipToCountry'
end
object Table1ShipToPhone: TStringField
FieldName = 'ShipToPhone'
Size = 15
end
object Table1ShipVIA: TStringField
FieldName = 'ShipVIA'
Size = 7
end
object Table1PO: TStringField
FieldName = 'PO'
Size = 15
end
object Table1Terms: TStringField
FieldName = 'Terms'
Size = 6
end
object Table1PaymentMethod: TStringField
FieldName = 'PaymentMethod'
Size = 7
end
object Table1ItemsTotal: TCurrencyField
FieldName = 'ItemsTotal'
end
object Table1TaxRate: TFloatField
FieldName = 'TaxRate'
DisplayFormat = '0.00%'
end
object Table1Freight: TCurrencyField
FieldName = 'Freight'
end
object Table1AmountPaid: TCurrencyField
FieldName = 'AmountPaid'
end
end
end